s-gikan2.maizuru-ct.ac.jp/s-gikan2.maizuru-ct.ac.jp.zip/s-gikan2.maizuru-ct.ac.jp/pub/ncvc352_install.exe/{app}/scripts/XYonly.pl

Text File | 2007-10-23 | 1KB | 30 lines

###ActivePerlé≡é▄é╕âCâôâXâgü[âïé╡é─ë║é│éóüBâtâèü[â\âtâgé┼é╖üB###
###http://www.activestate.com/Products/ActivePerl/?psbx=1###
###Perlé╔é┬éóé─é═éóéδé±é╚âzü[âÇâyü[âWé┼ë≡Éαé│éΩé─éóé▄é╖üBîƒì⌡é╡é─ë║é│éóüB###
###é▒é╠âXâNâèâvâgâtâ@âCâïé≡üAò╧è╖é╡é╜éóémébâtâ@âCâïé╞ô»é╢âtâHâïâ_é╔ôⁿéΩé─###
###â_âuâïâNâèâbâNé╖éΘé╞"anaExcel.ncd"é╞éóéñâtâ@âCâïé¬é┼é½é▄é╖üB###
###Æìê╙üIüIò╧è╖é╡é╜éóâtâ@âCâïû╝é≡"ana.ncd"é╔é╡é─é⌐éτÄ└ìsé╡é─é¡é╛é│éó###
######émébéuébé╠É▌ÆΦé═üAîèéáé»âfâtâHâïâgé┼éóé»éΘé╞Ävéóé▄é╖é¬###
###éyÆlüiÉ[é│üjé╞éqô_é╞éeÆlé═É«Éöé┼üBżÉöô_é═òKÉ{üB###
###âXâNâèâvâgé═èεû{ôIé╔üAÅπé╠ìsé⌐éτÅçö╘é╔Ä└ìsé╡é─éóé¡é╠é┼Æìê╙###

open(IN,"ana.ncd")||die"error:$!\n";###"ana.ncd"é¬ò╧è╖é╡é╜éóâtâ@âCâïû╝é┼é╖###
open(OUT,">anaExcel.ncd")||die"error:$!\n";###anaExcel.ncd"é¬ò╧è╖îπé╔é┼é½éΘâtâ@âCâïû╝é┼é╖###
@SABU=<IN>;
    foreach $line(@SABU)  {
       $line=~ s/G\d+//g;###/é`/éa/é┼é`é≡éaé╔Æué½è╖éªéΘé╞éóéñê╙ûíé┼é╖###
       $line=~ s/Z\d+\.//g;###Z\d+\.é╞é═Z4.é╞é⌐Z23.é╠é▒é╞é┼é╖ühÉ│ïKò\î╗ühé┼îƒì⌡é╡é─ë║é│éó###
       $line=~ s/Z\d+\.\d+//g;###Æuè╖éªéΓìφÅ£é═é▒é╠ì\ò╢é≡Ägéªé╬è╚ÆPé┼é╖###
       $line=~ s/Z-\d+\.R\d+\.\d+//g;###éyé╞éqé¬É«Éöé╚éτòsùv###
       $line=~ s/Z-\d+\.\d+R\d+\.\d+//g;###ô»Åπ###
       $line=~ s/Z-\d+\.R\d+\.//g;
       $line=~ s/Z-\d+\.\d+R\d+\.//g;
       $line=~ s/Z\d+//g;
       $line=~ s/F\d+\.//g;
       $line=~ s/\(End of CircleData\)//g;
       $line=~ s/^\n//g;###ìsô¬é╠ëⁿìsé≡Æué½è╖éª###
     }
print OUT @SABU;
close(IN);
close(OUT);